<?php
#
#
# Copyright TEDECO, 2009. http://tedeco.fi.upm.es
#
# This file is part of kumenya.
#
# Kumenya is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# Kumenya is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
#
#
#
?>
<?php
	include("../commons/clases.php");
	include("../commons/www.php");
	include(Accion . "ResultadoBalanceActivoPasivo.php");

	Interfaz::Cabecera(_("Resultado De") . " " . _("Activo Y Pasivo"));

	Interfaz::AbrirCuerpo(FALSE);

if ($exito) {
	if ($abrirFichero)
		Interfaz::AbrirFichero($enlace);

	Interfaz::Botones ();
	Interfaz::Formulario (Pagina. "ResultadosBalanceActivoPasivo.php");
	Interfaz::BotonNavegacion (_("Volver"), Pagina. "CriteriosBalanceActivoPasivo.php", "Volver");

	Interfaz::TipoDeFichero('Excel');
	Interfaz::BotonDeEnvio(_("Imprimir"));

	Interfaz::CerrarBotones ();
	Interfaz::Enviar(Interfaz::Datos());
	Interfaz::CerrarFormulario ();
	
	Interfaz::Formulario (Pagina. "CriteriosBalanceActivoPasivo.php", "Volver");
	Interfaz::Enviar (Interfaz::DatosRecordados());
	Interfaz::CerrarFormulario ();

	Interfaz::CabeceraBalanceSumasSaldos ($cabecera,$detallesCabecera);

	$acumuladoDebe = 0;
	$acumuladoHaber = 0;
	$acumuladoSaldoDebe = 0;
	$acumuladoSaldoHaber = 0;

	// PINTAR ACTIVOS
	foreach ($cuentasBalanceActivo as $cuenta => $datosCuenta) {
		if (isset($Balancecuentas))
			Interfaz::FilaBalanceSumasSaldos($datosCuenta,$detallesCuentasActivo[$cuenta], FALSE, 
				$acumuladoDebe, $acumuladoHaber, $acumuladoSaldoDebe, $acumuladoSaldoHaber);
		if (isset($Balancesubcuentas) && isset($subCuentasBalanceActivo[$cuenta]))
			foreach ($subCuentasBalanceActivo[$cuenta] as $subcuenta => $datosSubcuenta) {
				Interfaz::FilaBalanceSumasSaldos($datosSubcuenta, $detallesSubcuentasActivo[$subcuenta], FALSE, 
					$acumuladoDebe, $acumuladoHaber, $acumuladoSaldoDebe, $acumuladoSaldoHaber);
			}
	}
	$acumuladoActivoDebe = $acumuladoDebe;
	$acumuladoActivoHaber = $acumuladoHaber;
	$acumuladoActivoSaldoDebe = $acumuladoSaldoDebe;
	$acumuladoActivoSaldoHaber = $acumuladoSaldoHaber;

	Interfaz::CierreBalanceIngresosGastos ($acumuladoActivoDebe, $acumuladoActivoHaber, $acumuladoActivoSaldoDebe, 
		$acumuladoActivoSaldoHaber, Activo, FALSE);

	// PINTAR PASIVO
	foreach ($cuentasBalancePasivo as $cuenta => $datosCuenta) {
		if (isset($Balancecuentas))
			Interfaz::FilaBalanceSumasSaldos($datosCuenta,$detallesCuentasPasivo[$cuenta], FALSE, 
				$acumuladoDebe, $acumuladoHaber, $acumuladoSaldoDebe, $acumuladoSaldoHaber);
		if (isset($Balancesubcuentas) && isset($subCuentasBalancePasivo[$cuenta]))
			foreach ($subCuentasBalancePasivo[$cuenta] as $subcuenta => $datosSubcuenta) {
				Interfaz::FilaBalanceSumasSaldos($datosSubcuenta, $detallesSubcuentasPasivo[$subcuenta], FALSE, 
					$acumuladoDebe, $acumuladoHaber, $acumuladoSaldoDebe, $acumuladoSaldoHaber);
			}
	}

	$acumuladoPasivoDebe = $acumuladoDebe - $acumuladoActivoDebe;
	$acumuladoPasivoHaber = $acumuladoHaber - $acumuladoActivoHaber;
	$acumuladoPasivoSaldoDebe = $acumuladoSaldoDebe - $acumuladoActivoSaldoDebe;
	$acumuladoPasivoSaldoHaber = $acumuladoSaldoHaber - $acumuladoActivoSaldoHaber;

	Interfaz::CierreBalanceIngresosGastos ($acumuladoPasivoDebe, $acumuladoPasivoHaber, 
		$acumuladoPasivoSaldoDebe, $acumuladoPasivoSaldoHaber, Pasivo, FALSE);

	$totalBalanceSaldoDebe = $acumuladoPasivoSaldoDebe + $acumuladoActivoSaldoDebe;
	$totalBalanceSaldoHaber = $acumuladoPasivoSaldoHaber + $acumuladoActivoSaldoHaber;

	Interfaz::TotalBalanceIngresosGastos($totalBalanceSaldoDebe, $totalBalanceSaldoHaber);

}
else {
	Interfaz::Formulario (Pagina. "CriteriosBalanceActivoPasivo.php", "Volver");
	Interfaz::Botones ();
	Interfaz::Enviar (Interfaz::DatosRecordados());
	Interfaz::BotonDeEnvio(_("Volver"));
	Interfaz::CerrarFormulario ();
	Interfaz::CerrarBotones ();

	$error = Interfaz::Error();	
	echo _("HAY ERROR") . ": " . _($error);

}
	Interfaz::Fin();
?>